home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / VISUAL_B / 2884A.ZIP / GETPUT.ZIP / GETPUT1.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-08-13  |  3KB  |  80 lines
  1. Form1
  2. "Get/Put" Demo
  3. Form1,
  4. Label1
  5.     Picture1:
  6. Label2
  7.     Picture2:
  8. Picture1
  9. Picture2
  10. Label3
  11. Picture2.Picture=
  12. Label4
  13. SrcX1
  14. SrcY1
  15. Label5
  16. ) - (
  17. SrcX2
  18. SrcY2
  19. Label6
  20. Command1
  21. Picture1.Image
  22. Label7
  23. Label8
  24. GetPutCall
  25. Execute
  26. Command2
  27. LoadPicture()
  28. Label1_Click
  29. Command1_Click
  30. Picture2
  31. Image\
  32. Picture1
  33. Picture
  34. Command2_Click
  35. Command3_Click
  36. BitBlt
  37. SRCCOPY!
  38.     Clipboard
  39. Pic_Work
  40.     LoadImage
  41. Left'
  42. Width2
  43. Width
  44. Height2
  45. Height
  46. ScaleWidth
  47. ScaleHeight
  48.     ScaleLeft
  49. ScaleTop
  50. GetPut
  51. ImgWidth=
  52.     ImgHeight
  53. ShDC1a
  54. ShDC)
  55. PutMode
  56. BitBltCtrl_ClickF
  57. SrcX1
  58. SrcY1X
  59. SrcX2
  60. SrcY2
  61. Form_Click
  62. Form_DragOver
  63. Source
  64. State
  65. GetPutCall_Click
  66. Label3_Click
  67. Command1_Click
  68. Command2_Click
  69. works like Cls
  70. GetPut
  71. About as close as you can come to DOS Basic's Get/Put combo.
  72. Source hDC,Destination hDC
  73. Source X1,Y1,X2,Y2
  74. Destination X,Y,
  75. i.e.: Get(SX1,SY1)-(SX2,SY2):Put(DX,DY),PutMode 
  76. (1 is added below during subtractions since _width_ & _height_ are needed)
  77. (i.e. if all 4 coords set to 0, width & height need to be 1, not 0)0
  78. GetPutCall_Click
  79. note that the picture hDC's are passed by value and the pictures use Pixel ScaleMode.
  80.